home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / darkhold boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  444b  |  16 lines
  1. 0 print"[147]"chr$(8)
  2. 10 ifa=.thena=1:load"unpacker",8,1
  3. 20 ifa=1thena=2:load"darkhold.shp",8,1
  4. 50 poke53280,.:poke53281,.
  5. 60 bm=40960:co=35840
  6. 70 poke249,bm/256:rem   bitmap memory
  7. 80 poke250,co/256:rem   color memory
  8. 90 poke251,0     :rem   low byte of shp
  9. 100 poke252,64   :rem  high byte of shp
  10. 110 poke253,.:poke254,.
  11. 120 sys51456 :rem    unpack that shape!
  12. 130 sys51459 :rem    show that shape!
  13. 140 print"[147][144]load"chr$(34)"darkhold"chr$(34)",8"
  14. 150 print"sys51459:run"
  15. 160 poke631,13:poke632,13:poke198,2:end
  16.